
/*
+----------------------------------------------------------------------------+
!                             FICHA TECNICA DO PROGRAMA                      !
+----------------------------------------------------------------------------+
!Programa          ! MSD2460                                                 !
+------------------+---------------------------------------------------------+
!Descricao         ! Ponto de Entrada na rotina de geracao de Nota Fiscal de !
!                  ! Saida, posicionado apos a gravacao do Item SD2          !
+------------------+---------------------------------------------------------+
!Autor             ! TSC195 - Gustavo Schepp                                 !
+------------------+---------------------------------------------------------+
!Campos Necessarios! C6_ZCONTAD - Tipo Caracter / Tam 20 / Brw-Usd           !
+------------------+---------------------------------------------------------+
!Data de Criacao   ! 28/12/10                                                !
+------------------+---------------------------------------------------------+
!   ATUALIZACOES                                                             !
+-------------------------------------------+-----------+-----------+--------+
!   Descricao detalhada da atualizacao      !Nome do    ! Analista  !Data da !
!                                           !Solicitante! Respons.  !Atualiz.!
+-------------------------------------------+-----------+-----------+--------+
!                                           !           !           !        !
!                                           !           !           !        !
+-------------------------------------------+-----------+-----------+--------+
*/

User Function MSD2460
	If (SC6->(FieldPos('C6_ZCONTAD')) > 0)
		RecLock("SD2")
			SD2->D2_CONTA := SC6->C6_ZCONTAD
		MsUnLock()
	EndIf
Return